DDDDDDDDDDDD ccccccecccccce «LLL 
DODDDDDDDDDD cccccccccccc LLL 
cecccccccccce «LLL 


DODDDDDDDDDD 
DOD DDD ccc LLL 
DOD DDD ccc LLL 
DDD DDD CCC LLL 
DDD DdbD CCC LLL 
DOD DdDD CCC LLL 
DOD DDD ccc LLL 
DDD DDD ccc LLL 
DDD DdDD ccc LLL 
DDD DDD CCC LLL 
DOD DbD CCC LLL 
DOD DOD ccc LLL 
D DDD CCC LLL 
DOD DDD ccc LLL 
DOD DOD CCC LLL 
DOD bbdD CCC LLL 
DDDODDDDDDDD CCCCCCCCCCCC LLL LLLLLLLLLLL 
DODDDDDDDDDD CCCCCCCCCCCC LLL LLLLLLLLLLL 
DDDDDDDDDDDD CCCCCCCCCCCC LLLLLELLELLLLLLLL 


**F ILE**1D**DESCRVAL 


DDDDDDDD EEEEEEEEEE SSSSSSSS CCCCCCCC §=RRRRRRRR VV VV AAAAAA LL 

DODDDDDD EEEEEEEEEE SSSSSSSS CCCCCCCC = RRRRRRRR VV VV AABAAA LL 

DD DD EE SS cc RR RR VV VV AA AA LL 

dD DD EE $$ cc RR RR VV VV AA AA LL 

DD DD EE SS cc RR RR VV VV AA AA LL 

DD DD EE SS cc RR RR VV VV AA AA LL 

DD DD EEEEEEEE SSSSSS cc RRRRRRRR VV VV AA AA tL 

dD DD EEEEEEEE SSSSSS cc RRRRRRRR Vy VV AA AA LL 

dD DD EE ss CC RR RR VV VV AAAAAAAAAA LL 

‘DD DD EE sS CC RR RR WV VV AAAAAAAAAA LL 

DD DD EE ss CC RR RR vv VV AA AA LL cece 
dD DD EE ss CC RR RR vw WV AA AA LL eee 
DDDDDDDD EEEEEEEEEE SSSSSSSS CCCCCCCC ORR RR VV AA AA LLLLLLLLLL eee 
DODDDDDD EEEEEEEEEE SSSSSSSS CCCCCCCC §=RR RR vv AA AA LLLLLLLLLL eeee 
LL III] SSSSSSSS 

LL HII! SSSSSSSS 

LL I] SS 

LL I] $$ 

LL I] SS 

LL I] SS 

LL I] SSSSSS 

LL I] SSSSSS 

LL Il* SS 

LL I] $$ 

LL I] $$ 

LL I] SS 

LLELLLLLLLL III! SSSSSSSS 

LLLLLLLLLL HII! 


a<o 


--o -- -- - —- 
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»TITL CRVAL = TOKEN TABLE MANIPULATION ROUTINES 
“1OENT °F Voce $0 5° sp Pe 


t eadaususounenenenseneuneneonnnansennonenenennnneoenensenenonenneeneononeeess 


COPYRIGHT (c) 1978, 1980, 1982, 1984 B 

DIGITAL EQUIPMENT CORPORATION, MAYHARD. MASSACHUSETTS. 
ALL RIGHTS RESERVED. 

THI HED UNDER A LICENSE AND MAY BE USED AND COPIED 
0 H THE TERMS OF SUCH LICENSE AND WITH THE 
COPYRIGHT NOTICE. THIS soft ARE OR ANY OTHER 
T BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
aORPORAT ion NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


(a8 ad St 8 i 


PUNO OONA UE WIN $9 OD NAME WIN $$ O OONAUS WN $$ OOONAUE WH OWONOUSE 


eseeeeeeeeeeeeeeeneens 
@eeenene eae eee ene eaneennanen 


PARBRARASALALALALALALLELALLASELELALEE SELES EERE EERE RE REE EERE RE RES RS RRR R ERE ES 
PARSE TABLE DESCRIPTOR VALUE MANIPULATION ROUTINES 


SoOoOoOoOoooooooooooooooooo 


DOOOOOCOSOSOSOSOSOSOOCOOSOOSOSOOSOOOSOOOSOSoOSoOOo 
Ooo 


SOOOSOOSOCOOSOOOCOCOCOOOOOOSSSOOSOSOSOOCOOOOoOooOooOoOooO 


0 
0 
: 
0 
: 
00 
00 
00 


G MODIFIED BY: 
0 v03-004 PCG0004 Peter George 27-May-1983 
Readd DCLSSORT_TOKENS. 
0 v03-003 PCG0003 er George 06-May-1983 
Move DCLSSORT_ TOKENS to PARSENT. 
0 4 v03-002 PCG0002 Peter George 30-Apr-1983 
3 2 Add DCLSSORT_TOKENS. 
0 4 v03-001 PCG0001 Peter George 01-Mar-1983 
8 2 ee Add DCLSGETNVAL. 
3 
4 : MACRO LIBRARY CALLS 

WRKDEF sDEFINE COMMAND WORK AREA 
10 : PTRDEF sDEFINE TOKEN DESCRIPTOR 


~PSECT DCLSZCODE ,BYTE.RD,.NOWRT 


| £13 | 
oe cr yAL Set aeeure E MAN eyL aT ON ROUTINES 15-SEP-1984 93:43:33 ave Macro v04-00 Page (3) | 


1 1 
LT PARSE D PTOR VALUES 4-SEP-1984 DCL. SRCIDESCRVAL.MAR; 1 
- .SBTTL GET RESULT PARSE DESCRIPTOR VALUES | 
; DCLSGETDVAL = GET RESULT PARSE DESCRIPTOR VALUES 
60 : THIS ROUTINE IS CALLED TO OBTAIN THE VALUES FROM THE NEXT DESCRIPTOR IN 
6) i THE RESULT PARSE TABLE. 
e§ ; INPUTS: 
65 : WRK_L_RSLNXT = NEXT TOKEN DESCRIPTOR TO PROCESS 
0 ef Z OUTPUTS: 
00 $9 ; RO LOW BIT CLEAR INDICATES PARSE DESCRIPTOR TABLE IS EMPTY. 
80 71: RO LOW BIT SET INDICATES NEXT PARSE DESCRIPTOR HAS BEEN OBTAINED 
p00 a8 wre 
000 7%: R1 = VALUE FIELD OF DESCRIPTOR. 
000 75: Re = ADDRESS OF ITEM IN COMMAND BUFFER. 
000 id: F R3 = FLAGS FIELD OF DESCRIPTOR. 
000 77: R4 = FIELD TERMINATOR CLASS NUMBER. 
000 i. ; RS = TYPE OF ENTRY. 
B83 
0900 1 DCLSGETDVAL:: :GET RESULT PARSE DESCRIPTOR VALUES 
50 04 0000 é CLRL. = RO SASSUME TABLE IS 
51 BAAA 00 0002 MOVL WRK_L_RSLNXT(R10),R1  :GET ADDRESS OF NEXT TOKEN DESCRIPTOR 
B6 AA 31 pi 906 4 CPL Ri ORR _RSLEND (RIO) SANY MORE ENTRIES IN TABLE? 
BA AA §e CO 000¢ 6 ADDL #PTR_C_LENGTH,WRK_L_RSLNXT(R10) ;POINT TO NEXT DESCRIPTOR IN TABLE 
08 EF i f EXTZV #PTR V OFFSET APIR_S_OFFSET,~ sEXTRACT OFFSET TO ITEM 
52 F492 CA42 9E 001 89 MOVAB ORE -G-BKEFERCRIONER2]R2’ s CALCULATE ACTUAL ITEM ADDRESS 
04 14 EF 0018 0 EXTZV #PTR_O_FLAGS,#PTR_S_FLAGS.- ;EXTRACT FLAGS 
3 «61 001 91 PTR C BESCR(A1) ,R3 : 
04 18 «COEF 3 EXTZV #PTR_O_TERM,#PTR S_TERM,- ;EXTRACT TERMINATOR CLASS 
4 61 0 9 PTR C_BESCR(R1) RO : 
04 1c EF 00 94 EXTZV #PTR_0_TYPE.#PTR §_TYPE,~ SEXTRACT ITEM TYPE 
5 61 0 8 95 PTR_C_BESCR(R1) A : 
08 EF A 3% EXTZV #PTR_O_VALUE,#PTR.S_VALUE,- ;EXTRACT VALUE 
61 02 9 PTR_C_BESCR(R1) RT ; 
0 06 OOF 98 INCL RO S INDICATE NEXT DESCRIPTOR OBTAINED 
0 99 j 3 10$:  RSB : 


vOa-000- 


= TOKEN TABLE 
YWORD 


GET K 


I 
R 4-SEP=1 
.SBTTL GET KEYWORD NUMBER 
;  DCLSGETNVAL = GET KEYWORD NUMBER 


THIS ROUTINE IS CALLED TO OBTAIN THE KEYWORD NUMBER FROM THE CURRENT 
DESCRIPTOR IN THE RESULT PARSE TABLE. 


INPUTS: 

WRK_L_RSLNXT = NEXT TOKEN DESCRIPTOR TO PROCESS 
OUTPUTS: 

R1 = NUMBER FIELD OF DESCRIPTOR. 


DCL.SRCJD SCRVAL. MAR; 1 


wt 


CLSGETNVAL:: : GET KEYWORD NUMBER 
SUBL3 - #PTR_K akENGTH - : GET ADDRESS OF TOKEN DESCRIPTOR 
SLNXT(R10) ,R1 
(R1),R1 : GET KEYWORD NUMBER 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
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EN TABLE MANIPULATION ROUTINES 15=SEP=1984 23:43:53 VAX/VMS Macro V04-00 Pa 4 
THE tBKEN DESCRIPTOR TABLE ramet $3it8;48 YOCL SRCIDESCRVAL MAR; 1 vf | 
¢ ‘ ss ~SBTTL SORT THE TOKEN DESCRIPTOR TABLE | 
c : ; DCLSSORT_TOKENS = SORT THE TOKEN DESCRIPTOR TABLE. | 
. aa 3 : THIS ROUTINE IS CALLED TO SORT THE TOKEN DESCRIPTOR TABLE INTO 
€ 129 : CMDQUAL,PARM,PARMQUAL ORDER TO MAKE GETDVAL PROCESSING IN INTERNAL 
c 6 3 CU ROUTINES EASIER AND TO MAKE DISALLOW PROCESSING EASIER. 
¢ g Z INPUTS: | 
c 1 : : R10 = ADDRESS OF WRK DATA STRUCUTURE 
c $ ; OUTPUTS: 
8 € 138; RO-R9 ARE DESTROYED. 
are 
0 C 141 HCLSSORT_TOKENS: : 
SA oD 003¢ 128 PUSKL R10 :SAVE R10 
57 £9B6 CA 3 0 é 144 MOVAB WRK_G_RESULT(R10),R7 SGET ADDRESS OF RESULT DESCRIPTOR AR 
58 57 DO 0043 145 MOVL R [COPY ADDRESS OF RESULT DESCRIPTOR A 
SE  FAOO CE 3 0046 146 MOVAB WRK C_RSLBUFSIZ(SP),SP SALLOCATE TEMPORARY DESCRIPTOR ARRAY 
59 3E DO 0048 14 MOVL SP, [SAVE ADDRESS OF TEMPORARY DESCRIPTO 
BA AA H D4 OO4E 148 10S: CPL R7,WRK_L_RSLNXT (R10) ZEND oF RESULT DESCRIPTOR ARRAY? 
69 67 OC 2B bose 150 MOVC3 #PTR_C_LENGTH, (R7),(R9) [MOVE DESCRIPTOR TO TEMPORARY ARRAY 
57 OC C0 0038 151 ADDL #PTRCTLENGTH.R7 :POINT PAST IT IN ORIGINAL ARRAY 
06 1C €D 0058 138 CMPZV #PTR-V-TYPE,#PTR_S_TYPE,- [COMMAND QUALIFIER? 
00 69 905 15 (R9) -#PTR_K. COMDOUAL ; 
FC 12 0060 154 BNEQ 108 [BRANCH IF NOT 
0c 00 6€ 9 2€ 0062 155 MOVCS #0,(SP),#0,#PTR_C_LENGTH,- [CLEAR COMMAND QUALIFIER DESCRIPTOR 
F4 A 06 136 -PTR_C_CENGTH(R?) ;__IN ORIGINAL ARRAY 
59 OC CO 15 ADDL #PTRTC“LENGTH,R9 [POINT TO NEXT ITEM IN TEMPORARY ARR 
04 1¢ ED 006C 158 208:  CMPZV #PTRIV~TYPE.#PTR_S_TYPE,- SQUALIFIER VALUE? 
02 6 159 (R7) -#PTR_K.QUALVACU : 
DB 160 BNEQ 10$ [BRANCH IF NOT 
69 67 OC 2 161 MOVC3 #PTR_C_LENGTH, (R7), (R9) [MOVE DESCRIPTOR TO TEMPORARY ARRAY 
59 «(OC co 168 ADDL. #PTR7C7LENGTH [POINT PAST IT IN TEMPORARY A 
67 OC 00 6 0060 2 16 MOVCS 4#0,(SPT,#0,#PTR_C_LENGTH,(R7) | :CLEAR COMMAND QUALIFIER DESCRIPTOR 
§ at CO 164 ADDL #PTR_C_LENGTH,R? [POINT TO NEXT ITEM IN ORIGINAL ARRA 
€? 11 165 BRB 20$ : 
A 57 00 189 308: MOVL  R7,R10 SCOPY ADDRESS OF LAST DESCRIPTOR + 1 
8 57 »D 1 8 40$:  CMPL  R7.R8 TANY MORE DESCRIPTORS TO EXAMINE 
13 (1 16 BEQL TIF EQL NO 
7 g¢ C 1 : SUBL § #PTR_C_LENGTH,R7 SREMOVE DESCRIPTOR 
6 D 17 MOVL R7,R8 [GET DESCRIPTOR ADDRESS 
66 OCOD 17 TSTL (RO) [WAS THERE A DESCRIPTOR THERE? 
Fl 1 17 BEQL 40$ ?BRANCH IF NOT 
SA oc 17% SUBL_ #PTR_C_LENGTH,R10 ?POINT BEFORE IT IN ORIGINAL ARRAY 
6A 66 . 129 ROVES #BTRTCLENGTH, (R6) , (R10) “MOVE DESCRIPTOR TO NEW POSITION 
SE D1 193 50$: CMPL 4 SP TANY MORE TEMPORARY DESCRIPTORS? 
r 4 178 BEQL 4-6 0$ TIF EQL NO 
A oC C¢ 17 SUBL § #PTR_C_LENGTH,R10 [POINT BEFORE IT IN ORIGINAL ARRAY 
.@a-.3 180 SUBL § #PTRTC“LENGTH.R9 [POINT BEFORE IT IN TEMPORARY ARRAY 


Vv 
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2rSE0=1382 $3263: “SRC IDESCRVAL MAR: 1 st 


Symbol table 
DCLSGETDVAL 


o> 


Ox 


fala a Boa ae baa) 
Oy ww 
om~wawWwoO 
mmnwomm 


vo 
e 
SE 
< 
= 
Cc 


= 
= 
WOrm Coco Co 


WRK-C"LENGTH 
WRK" C"RSLBUF SIZ = 
BUFFER 


Sanam nnt lomo 
AMAA OMOSOML UTM 


omy OOmM 


VEE ODES SPOOR SO 
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DESCRVAL = TOKEN TABLE MANIPULATION ROUTINES SEP=-1 1384 $3: $3: 33 rite: 0 V04- -00 Page 7 
Psect synopsis Hie 4 DCL.SRCID SCRVAL . MAR; 1 (4) 


Paemarecoremoa mama ae $ 


! Psect synopsis ! 


poor woe o on wmanamoad 


PSECT name Allocation PSECT No. Attributes 
- ABS . 00000000 ( 8.3 9 ‘ 1") -) NOPIC USR CON ABS LCL N =e NOEXE NORD NOWRT NOVEC BYTE 
SABSS FFFFFFFC ¢ ) NOPIC USR CON ABS LCL NOSHR EXE RD WRT NOVEC BYTE 
OCLSZCODE QOOO00BA ( 186.) : >") NOPIC USR CON REL LCL NOSHR EXE’ RD NOWRT NOVEC BYTE 
yo enone zeonacea oma em oan 
; | Performance indicators a: 
Phase Page faults CPU Time Elapsed Time 
Initialization 10 0:00: 00.09 8:00:01 «38 
Command processing 5 0: 8: 61 0:00:07.30 
Synbol table sort “I 0; 0: at} 8:00:04 64 
38 0: 0: -53 0:00;08-21 
cess f table output 6 0:00:00.0 B00: 8. $ 
Psect synopsis output 0:00:00.0 0:00:00.0 
Cross-reference output 0:00: 9 Bh 08: 90-58 
Assembler run totals 26 0:00:03. 00:00:20.28 


The working set Limit was 900 pages 
9561 bytes (19 pages) of virtual memory were used to buffer the intermediate code. 
There were 10 pages of symbol table space allocated to hold 122 non-local and 7 local symbols. 
188 source Lines were read in Pass 1, producing 13 object records in Pass 2. 
16 pages of virtual memory were used to define 10 macros. 


SASH SNOT NEoone De Dewaeam > 


Macro Library name Macros defined 
4 $255$DU :CSYSLIBJSYSBLDOMLB.MLB; 1 0 
S3punzs: :COCL. 4 OR ork ae: i 
B:fSVs-08421 18-8 ALB;2 
Tethis te ace: libraries) 


207 GETS were required to define 5 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=LIS$:DESCRVAL/OBJ=0BJ$:DESCRVAL MSRC$:DESCRVAL/UPDATE=(ENHS$: DESCRVAL) +EXECMLS/LIB+LIB$:DCL/LIB+SYSS$LIBRARY : SYSBLOMLB/LIB 


AL EQUIPMENT CORPORATION 
DENTIAL AND PROPRIETARY 


AH-BT13A-SE 
VAX/VMS V4.0 


IT 
FI 


DIG 
CON 


